RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


| 
| 


**FILE**1D**AREC 


wu as 
Vv wow 
Vv et 
Wu Med ae 
Vu tt 
Wu Wu 
Www ie 
Vu rs 


VUVYVVUUUWUWY 
WS CS LS I St 


ub th Lad 
su ts 
eree) MLAS uous 
peeaeey usu bat ht 
Lhd da a Us kd 
thst verve) tas ld 
Rd LS bab tad eee) 
tA AS tad Lad Ut 


nn Munn 
nw NNMM 
nn nw 
nn wn 
“own nn 
“nn “own 
nw nn 
MAY nn 
NAMMM 
MMM 
se 
~~“ 


LLLLLLLLLL 
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AREC 18-52 $1984 23:49: VAX=-11 Bliss-32 V4.0-742 Page 1 fe 
12=808- 1382 13:65,99 DISKSVMSMASTER:CRUNOFF.SRCJAREC.BLI:1)" (1) V04- 

ies 1 © MODULE AREC ( gy 

; : : IDENT = 'V04-600' 

; P %8L1SS32C Ee 

; 4 P 4 ADDRESSING MODE (EXTERNAL=LONG_RELAT IVE, NONEXTERNAL=LONG RELATIVE) ; 

; 6 § d= 4 

Fa: f BEGIN ; 

. 5 $ 1! : 1 

3 19 19 ! {Se eeneeerenearenenereeraanaererereeeeoereerentetentnannenenteenenteerettetts Pt 

Ps :* a 3 

; i i 1 i* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® ; 1 

om 13 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . | 

14 14 is ALL RIGHTS RESERVED. ; ; 

; 18 O16 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * | 

4 017 1 i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 1 

oe. O18 1 i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

> #19 019 1 i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * a2] 

>: 20 00 0 1 i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | 

; 0 1 is TRANSFERRED. : ; 

: 0 ; 1 i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * . 

ee 024 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; 8 00 5 is CORPORATION. : : 

: 3 00 5 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | 

; 8 00 8 is SOFTWARE ON EQUIPMENT WHICH 1$ NOT SUPPLIED BY DIGITAL. : ; 

: 30 0030 1 is ® 14 

3 1 9 : | SoeaRonecnnsereaoneoeenesseracroorereeonereoteoeneeneseneeneeeeeonenseesetes 

3 00 ! 

2 Bh. 

; 3 00 5 i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

: i of $ : ABSTRACT: Performs preliminary analysis on an uneaten string. 

: 39 0039 1 i 

: 29 Bae ' ENVIRONMENT: Transportable 

; 4¢ O42 1! AUTHOR: R.W.Friday CREATION DATE: May, 1978 

Si 043 13 


7 
bes Revision History 1B:§ 4 138¢ #3: 38: 88 Disk tymenA AST ERSCRUNOFF RCJAREC.BLI;1 yage (28 


RSBTTL "Revision History’ 
! MODIFIED BY: 
007 KF A000 Alden 07-Mar-1983 


pee | ait of att “nodules. Updated module names, idents, 
copyright dates. Changed requé re files to BLISS library. 
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AREC tbs 1984 23:49: VAX=11 Bliss-32_V4.0-74 p **F | 
04-000 Module Level Declarations a=$eei13RE 8:68:98 | Pi eAleteRe Mbnoee Secanec.eu1:1 cst 
ZSBTTL ‘Module Level Declarations’ 


TABLE OF CONTENTS: 


DIN 
WMO O0ONOu 
Nw 


: 1 

; | 

; 1 

3 $ | 

; 1 

; «6 1 

; 6 : INCLUDE FILES: 

3 6 06] 1 LIBRARY 'NXPORT: XPORT® ; ' XPORT Library 

: ee : } REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 
; 66 U 194 1 ZIF_DSRPLUS XTHEN 

: 6 u 0195 1 LIBRARY REQ:DPLLIB'; ! DSRPLUS BLISS Library 
> 68 196 1 ZELSE 

: 69 197 1 LIBRARY "REQ:DSRLIB'; ! DSR BLISS Library 
; 70 198 1%] 

Ro BBL 

pe. o1 1 | EQUATED SYMBOLS: 

- ae 

; 26 0 04 | OWN STORAGE: 

: 78 6 0g 1 | 

> 79 0207 1 | EXTERNAL REFERENCES: 

Bo 8508 1 

: Be 6 10 1 EXTERNAL LITERAL 

; 83 0 1 RINTES : UNSIGNED (8); 

> 85 0 ig 1 EXTERNAL 

; 86 141 FNCT : FNCT_DEFINITION 

: 87 0215 1 FLGT : FLAG-TABLE CFLAG_COUNT), 

> «88 0216 1 GCA : VECTOR [GCA SIZE), 

>; 89 0 7 1 IRA : FIXED STRING, 

3 90 18 #1 KHAR; 
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AREC 18-se 1984 23:49: VAX-11 Bliss-32 V4.0-742 Pa 4 BOTF 
v04-000 Routine AREC 127808- 1382 #369 :98 DISKSVMSMASTER: CRUNOFF .SRCJAREC.BLI;1 ad (4) 

9 1 ZSBTTL ‘Routine AREC' 

87 GLOBAL ROUTINE AREC = 

95 1e4 

38 FUNCTIONAL DESCRIPTION: 

98 i AREC is used to determine what the current record looks Like. 

399 It also detects the '.!' and ‘.;' 


3" forms o comments, as well 
as .BREAK commands indicated by a single '. 
either white space or end of record. 
i FORMAL PARAMETERS: None 
i IMPLICIT INPUTS: None 


' 

i 
followed by 
' 

i] 

' 

' 

' 

IMPLICIT OUTPUTS: None 
t 

| 

! 

4 

i] 

i] 


VFWn—oO 


i ROUTINE VALUE: 
i COMPLETION CODES: 


; See ARECCC.REQ for a description of completion codes. 
i SIDE EFFECTS: None 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
BEGIN 
‘First see if there is anything at all on the record. 
IF .KHAR EQL RINTES 
THEN 
'The record is e pty. 

RETURN END_OF _STRING; 
4 
4 


‘Remember start of possible command for error analysis later. 
GCA_COM_START = CHSPLUS (.FS_NEXT (IRA), -1); 

‘Check for the <ENDFOOTNOTE Flag> if footnotes are being 
‘collected, and the <ENDFOOTNOTE flag> is enabled. 


IF .FNCT_COLLECTING 
AND (TKHAR EQL .FLGT CEFO_FLAG, FLAG CHARACTER) 
ren’? (,FLGT CEFO_FLAG, FLAG_ENABLED)) 


!Yes, it was the <ENDFOOTNOTE flag>. 
RETURN END_FOOTNOTE; 


'Check for the <CONTROL flag> (usually a ‘.') 


IF (.KHAR EQL ,FLGT CCON_FLAG, FLAG CHARACTER) 
AND (.FLGT CCON_FLAG, FLAG. ENABLEDJ) 


BEGIN ' <CONTROL flag> followed by sqnething. 
KCNS (); ! Get next character for additional checking. 
'See if this is a special form of .BREAK. 


IF (.KHAR EQL RINTES) ‘end of record? 
OR (.KHAR EQL 2C° *) 'space? 


7 
o 
. 
. 
7 
o 
° 
o 
7 
a 
° 
° 
. 
eo 
. 
. 
. 
e 
. 
° 
7 
o 
* 
° 
. 
e 
© 
° 
« 
e 
° 
e 
. 
e 
> 
. 
. 
ca 
° 
e 
. 
° 
. 
a 
. 
° 
° 
. 
7 
o 
. 
e 
. 
a 
. 
o 
. 
o 
© 
y 
ca 
7 
o 
. 
a 
. 
o 
. 
° 
. 
° 
. 
° 
. 
2 
. 
° 
. 
o 
. 
. 


UN —QOOBNOUSWN —“OVONOULSWN—O0O~n 
MEW O OONA UE WIN 9 OODNOUN EWN 0 DOONAN EW OVW OVNOUS 


| 
| 
0 


ee ee a ee ed dd 


= eee INS MIMI INI NIPIDRINININININIDS 2 2 SS SS SS  2@OOOOCOOO 
ReLESE Sess o 4 OOoooo 


DWNOULWNM—OO 
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AREC Bs 1984 23:49: VAX=11 Bliss-32 V4.0-742 Page 5 
Routine AREC 12888-188e 13:68:98 DISKSVMSMASTER: CRUNOFF.SRCJAREC.BLI;1 . (4) 
7? a (.KHAR EQL %0'011') !tab? 


d 
S 


'Yes, it was a special form of .BREAK. 
RETURN CF_BREAK; 


!Two consecutive <CONTROL flag>s force a single one as a normal character. 
IF .KHAR EQL .FLGT CCON_FLAG, FLAG_CHARACTER] 
RETURN CF_CF; ! Two <CONTROL flag>s. 


'See if it's a comment starting Like '.!' or '.;'. 
IF (.FLGT CCOM_FLAG, FLAG_ENABLED) 

AND (.KHAR Fo, ;FLGT CCOM_FLAG, FLAG_CHARACTER))) 
ren” (.KHAR EQL %C';') 


'Yes, it’s a comment. 
RETURN CF_COMMENT; 


'The Last possibility is that it's a command (even though that's the 
‘usual case). 


4 

4 

& IF LETTER (.KHAR) 
THEN 

4 


SOOSGOGDOSOOS000000000000 090000090000 000009 II 


WN SO ODONOULS WN O ODNOUFWN —O0OONOULS WO” 
NR OOODNAVNES WIN 9 ODNANE WN $9 OD NAME WW OO OP NAU EW OOWONID 


Be Se Se Se Ge Ge Be Ge Ge Ge Ge Se Ge Ge Fe Se FF Se Se FH Se Se Ge Se Se Ge BF Ge Se FS Se Se SF Se See See Sees te Sseesteese 
a ec ee ee ee a ee a me ce ee De ee ed ed ed ed ed ed 


OOOO O09 09090909 09 09 09 9 09 INI NII NI NINN NIAAA AAA AAAAMMIUINIUIUIVIVIVIVIL 
SRANLESELEAE 


0 
0 
83 RETURN CF_LETTER; 
08 RETURN CF_OTHER; ! Not recognized. 
83 — ! End analysis of <CONTROL flag>. 
03 BEGIN ! Something other than <CONTROL flag>. 
IF (.KHAR EQL &C° °) 'space? 
: OR (.KHAR EQL %0'011") 'tab? 
031 ‘First character is a space or tab. 
: RETURN FIRST_SPACE; 
1 IF .KHAR EQL X%C';' 
1 THEN 
1 'First character is a ‘';'. 
; RETURN FIRST_SEMI; 
1 END; 
3 RETURN NOT_SPACE; ! None of the special cases tried above. 
3 END; 'End of AREC 
TITLE Anes 
-IDENT \V04-000\ 
-EXTRN RINTES, FNCT, FLGT 
-EXTRN GCA, IRA, KHAR 


-PSECT SCODES,NOWRT,2 


? 
AREC ib-se -1984 249: VAX-11 Bliss-32 V4.0-742 id 
04-000 Routine AREC VaaReeT RBS F8i88:98 Pe ehl eta hbubee Sacaanec.eursnem cad 

003¢ .ENTRY AREC, Save R2,R3,R4,R5 : 0220 ; 

5 G BF OA MOVZBL M#RINTES, RS : ; 

4 G EF 9€ VAB_  KHAR, R4 : ; 

G EF D VAB «IRA+4, R3 : ; 

G EF 4 MOVAB FLGT+80, R2 : ; 

4 D 1B MOVL KHAR, RO + 0248 ; 

0 p CMPL =e RO, RS : ; 

4 BNEG si : ; 

50 1 p ROVL #1, RO + 0251 ; 

000000006 EF 63 01 c3 1$ SUBL3 #1, IRA+4, GCA + 0254 3 

ao fi BY 000% uae FutT #20 68 858 

1 A BNEG  2$° : ; 

04 B4 § 3 BLBC FLGT#4, 2$ : 026 ; 

1 OB REA GR es Js 

62 50 D1 00044 28 CMPL RO, FLGT+80 > 0267 ; 

9 Ne 47 BNEG 14$ : ; 

75 B8 Ag ES 00049 BLBC FLGT+8, 14$ + 0268 : 

08 a3 DS 4p IST JRA+12 ; 0271 : 

64 92 9A iH MOVZBL RS, KHAR : : 

08 A3 01 ce 5 MNEGL #1. IRA+12 : ; 

09 1 59 BRB 4 : ; 

64 00 B83 9A 00058 3$ MOVZBL @IRA+4, KHAR : ; 

6 0g O5F INCL IRA+4 : ; 

08 Ad D 61 DECL IRA+12 : : 

50 4 DO 00064 4$ MOVL KHAR, RO + 0274 : 

5 0 D1 067 CMPL = RO, R : ; 

A 13 0006A BEQL sé : ; 

20 0 D1 0006C CMPL RO, #32 : 0275 ; 

03 13 ¢f BEQL «=s«5$ : : 

09 0 oi 1 CMPL RO, #9 : 0276 : 

04 : 7% BNEG 6§ : ; 

50 02 vt 16 5$: MOVL #2, RO ; 0279 : 

62 50 : 7A 6$: CMPL RO, FLGT+80 + 0283 : 

04 7D BNEG 6 7$ : ; 

50 3 06 007 OVL #3, RO ; 0285 ; 

0 EB A2 €9 7$: BLBC =FLGT+56, 8$ : 0289 ; 

30 A b § CPL nO, FLGT+128 ; $380 : 

38 p 8$: CMPL RO, #59 + 0291 ; 

4 BNEG 108 : : 
50 4 p 98: ROVL #4, RO ; 02% =, 
00000041 aF D1 96 10$:  CMPL Ro #65 : 0299 og 
0000005A BF 3p he OR S ad : : 
Mp BLEG =: 128 : | 
00000061 aF b 11$ CMPL RO, #97 : : 1 
0000007A = &F b b at atte ‘ $ #122 ; : 
4 00088 BGTR 13$ ; | 
50 5 pO 000BA 128:  MOVL #5, RO : 0301 4 


V565000 Routine AREC 13-Sep-1984 $3568: 98 Nae anSbAS eRe hbuGee Secaanec.eute4® 


04 000BD RET 
50 09 B60 i 13$: MOVL #9, RO 
20 p €2 148:  CMPL RO #32 
¢ BEQL i 
09 p ¢ CMPL RO, #9 
4 CA BNEG 16$ 
50 7 p CC 15$:  MOVL #7, RO 
4 OOOCE RET 
38 0 D DO 16$: CMPL RQ #59 
4 1 D BNEG § 
50 8 p 0 D MOVL #8, RO 
D RET 
: VL . 
50 0A DO 00009 178 MO #10, RO 
4 0000¢ RET 


Routine Size: 221 bytes, Routine Base: $CODE$ + 0000 


199 0334 'End of modul 
'End of module 
198 83 5 d ELUDON 
i 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 221 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
eccccece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
~$255$DUA28: CSYSLIBIJXPORT.L32;1 9 252 :00.1 
“$255$DUA28: CRUNOFF . SRCJDSRLIB.L32;1 1348 33 : 86 80:00:38 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=L)S$:AREC/OBJ=OBJ$:AREC MSRC$:AREC/UPDATE=(ENHS$: AREC) 


piso: 221 coge ¢ 0 data bytes 
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* (4) 


0303 
0308 
0309 
0312 
0314 
0317 


0382 


| ? 
AREC Be om i f ; 
v04=000 Restten sont if Sep-1984 23:49:08  VAX=11 Bliss-32 V4.0-742 


; Elapsed rior: 00:14.5 
3; Lines/CPU Min: 1 
; Lexemes/CPU-Min: 14180 
: ponety greet 61 pages 
; Compilation Complete 


a ee ee a ee ed ed dd ed ed 
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